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FOREWORD 


This  is  the  first  report  in  the  Data  Reduction  Program  Documenta- 
tion  se'bms.  All  reports  will  bear  the  document  number  PA -229  and  will  be  dis¬ 
tinguished  by  post -numerals  —  the  present  report  being  PA -229-1. 

A 

The  series  will  document  in  detail  the  programs  usedjt  Lincoln 
Laboratof$>in  preparing  the  PRESS  Operation  and  Data  Summary  (POD)  Reports. 
Each  POD  is  a  presentation  of  data  from  a  ballistic  missile  flight  into  the  vicin¬ 
ity  of  the  Kiernan  Reentry  Measurements  Site  (KREMS),  situated  on  the  island 
of  Roi  -Namur  in  the  Kwajalein  Atoll  of  the  Marshall  Islands.  The  data  collected 
at  KREMS  is  shipped  to  Lincoln  and  there  validated,  edited,  anji-processed^ 

jL c. 

selected  subset  of  the  data  —  perhaps  one -tenth  to  one  percent  of  the  whole-- 
is  transcribed  to  computer  formatted  magnetic  tapes  and  processed  through  a 
library  of  programmed  algorithms  to  produce  the  information  displayed, 
either  graphically  or  in  tabular  form,  ir.  PODs,  and  subsequently  used  for  in¬ 
terpretation  and  analysis. 

K 

It  should  be  noted,  that,  although  KREMS  possesses  both  radar  and 
optical  instrumentation,  the  emphasis  in  this  report  series  is  on  the  treatment 
of  radar  data.  It  should  also  be  noted  --  and  in  fact  is  to  be  stressed  --  that  an 
appreciation  of  the  details  of  an  algorithm  must  be  based  on  an  understanding 


of  rhe  characteristics  and  idiosyncrasies  of  the  radar  which  generated  the  data. 
It  is  not  the  purpose  of  this  series  to  describe  the  ALTAIR,  ALCOR,  or  T'-Li- 
DEX  radars:  descriptions  are  found  in  other  references,  either  already  pub¬ 
lished  cr  in  preparation.  The  reader  is  urged  to  familiarize  himself  with  the 
instrument  characteristics. 

Within  this  series,  each  program  will  be  documented  as  it  is 
written  for  the  Lincoln  IBM  360/67  computer,  and  it  is  planned  that  each  major 
program  will  constitute  a  separate  report.  To  a  certain  extent,  each  report 
will  be  self-contained:  abbreviations,  symbols,  minor  subroutines,  etc.,  will 
be  repeated  in  each  report  even  if  common  to  a  nu  nber  of  programs.  However, 
a  few  subroutines  are  voluminous  enough  to  warrant  separate  reports,  and  pro- 
grsm''  using  these  subroutines  will  cross-reference  the  appropriate  report. 

Although  many  of  the  programs  produce,  as  output,  grapnical 
displays  on  a  Stromberg -Carlson  or  Calcomp  plotter,  no  attempt  is  made  to 
document  the  control  instructions  for  such  devices,  since  the  instructions  are 
standardized  and  available  elsewhere. 

Each  report  will  be  dated  according  to  the  date  of  completion  of 
the  documentation.  No  implication  is  made  that  a  program  will  not  subse¬ 
quently  be  modified,  amended,  or  superseded:  on  the  contrary,  the  history  of 
radar  data  processing  is  one  of  continuous  evolution  of  techniques,  and  it  is 
unrealistic  to  assume  that  steady -state  has  been  reached.  The  PA -229  series 
is  being  published  for  the  convenience  of  interested  parties,  and  Lincoln  as¬ 
sumes  no  responsibility  for  the  correctness  of  the  information  presented,  nor 
for  its  currency. 
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The  preparation  of  reports  in  this  series  is  under  the  Editorship 
of  Charles  R.  Bemdtson  of  Lincoln,  and  of  D.  Nessmann  and  R.  French  of 
Philco-Ford  Corporation.  Inquiries,  suggestions,  corrections,  criticisms, 
and  requests  for  additional  copies  should  be  directed  to  C.  R.  Berndtson. 

Finally,  it  will  be  observed  that,  in  some  cases,  a  report  rec¬ 
ognizes  by  name  a  principal  contributor;  in  other  cases,  no  name  is  given. 
Due  to  the  intricate,  evolutionary  manner  in  which  the  programs  came  into 
being,  the  editors  regret  that  it  is  in  general  impossible  to  give  due  credit 
to  all  --  mathematicians  or  radar  analysts  or  programmers  --  who  contri¬ 
buted  to  the  definition  and  writing  of  the  programs. 

The  work  reported  in  this  document  was  performed  at  Lincoln 
Laboratory,  a  center  for  research  operated  by  Massachusetts  Institute  of 
Technology.  This  work  was  sponsored  by  the  Advanced  Research  Projects 
Agency  of  the  Department  of  Defense  (ARPA  Order  600),  the  Department  of 
the  Army,  and  the  Department  of  the  Air  Force  under  Air  Force  Contract 
FI  9628 -70  -C-0230. 
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ALTAIR  TAPE  READ  PACKAGE 


The  ALTAIR  Tape  Read  Package  retrieves  data  from  the  catalog  and  trans¬ 
cription  tapes.  It  contains  four  IBM  360  assembler  language  subroutines  which  are 
called  by  the  user's  Fortran  program. 


Suoroutine 

Entry 

BREADS 

BREADS 

BREAD 

REW 

HDRR 

HDRR 

NAMET 

FORM 

FORM 

GETS 

GET 

IGET 

Appendices  A-D  present  program  listings  of  these  subroutines. 

The  user's  program  calls  a  Fortran  subroutine  (CHEAD  for  the  catalog  tape 
and  THEAD  for  the  transcription  tape)  which  in  turn  calls  the  ALTAIR  Tape  Read 
Package  through  the  above  entries.  Entry  BREADS  is  called  to  define  the  buffer  areas 
and  various  flag  and  parameter  locations  used  in  the  reading  process.  BREADS  also 
opens  the  file  and  causes  the  first  record  of  an  ALTAIR  tape  to  be  read.  The  data 
from  the  first  record  is  not  available  to  the  user,  however,  until  the  reading  call 
BREAD  is  given.  The  BREAD  call  moves  the  data  from  the  first  record  into  an  area 
where  it  is  available  to  the  Fortran  user  and  also  initiates  the  reading  of  the  second 
record. 


Entry  HDRR  is  called  to  gain  access  to  Tape  Header  Record  FMHDRD  which 
is  the  first  record  of  a  catalog  or  transcription  tape.  The  remaining  format  and 
calibration  records  at  the  front  of  the  tape  are  now  read  by  successive  BREAD  calls. 
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Each  of  these  records  is  interrogated  by  Entry  NAMET  which  checks  to  see  if  the 
re  ror  1  should  be  stored  in  core.  Entry  FORM  is  called  to  store  and  unpack  selected 
calibration  and  format  records  in  a  convenient  form  for  later  use  by  the  GETS  sub¬ 
routine.  Once  a  data  record  is  reached,  control  will  return  to  the  main  processing 
program  from  CHEAD  or  THEAD. 

As  successive  data  records  are  read  into  memory  by  the  BREAD  call, 
particular  data  items  may  be  acquired  by  means  of  the  entries  GET  (floating  point 
number)  and  TGET  (binary  integer).  A  detailed  description  of  the  use  and  function  of 
these  subroutines  is  provided  at  the  front  of  each  subroutine  listing. 


COMMON  SYMBOLS  AND  ABBREVIATIONS 


(The  units  given  for  certain  quantities  are  the  units  commonly  used  for  those 
quantities,  unless  otherwise  noted. ) 


ADT 

Alt 

APS 

ARS 

Avg 

Az 


ALCOR  Data  Tape 
Altitude  (km) 

Average  Pulse  Shape 
ALTAIR  Recording  System 
Average,  Averaging 
Azimuth  (deg) 


CADJ 
C  -band 


Adjusted  Calibration  Constant  (db) 

ALCOR  frequency,  5664  MHz  (NP)  and  5667  MHz  (WB) 


El 

EOF 


Elevation  (deg) 
End  of  File 


GMT 


Greenwich  Mean  Time 


h 

Hz 


Hours 

Hertz 


in 


Inches 


LC 


Left  Circular  Polarization 


min 


Minutes 


NB  Narrow  Band 

NRTPOD  Non-real  Time  Precision  Orbit  Determination  Program 


POD 

Phase 

PRF 

PRI 

pps 

pts 


Project  PRESS  Operation  and  Data  Summary  Report 
Presented  in  deg 

Pulse  Repetition  Frequency  (pps) 

Pulse  Repetition  Interval  (s) 

Pulses  per  second 
Points 
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""y  'jmm.  "f 


R 

R 

rad 

RC 

RCS 


Range  (km) 

Range  Rate  (km/s) 

Radians 

Right  Circular  Polarization 
Radar  Cross  Section  (dbsm) 


s 
SD 


w 
T 

TAL 

UHF 

V 

vd 

Vw 

VHF 

WB 


Seconds 

Standard  Deviation  of  Wake  Velocity 
Time 

Time  After  Launcli  (s> 

ALTAIR  Frequency;  415  MHz 
Velocity 

Doppler  Velocity 

Mean  Wake  Velocity 

ALTAIR  Frequency;  155.  5  MHz 

Wide  Band 


0 

X 

* 


Total  Off-axis  Angle  (deg) 
Wavelength 

Denotes  Multiplication 


APPENF  X  A 

SUBPOUTINE  BREADS  PROGRAM  LISTING 


***ERE ADS 


DOUPLE  BUFFERED  READ  FOR  FORTRAN 


*  THIS  SUBROUTINE  PROVIDES  A  DOUBLE  BUFFERED  READ  CAPABILITY  FOR 

*  FORTRAN  REAEING  OP  UNFCEMATED  BINARY  TAPES. 

* 

*  TO  UTILIZE  THIS  ROUTINE  TWO  CALLS,  BREADS  AND  ERFAL,  ARE 

*  NECESSARY.  EREACS  DEFINES  THE  BUFFER  AREAS  AND  VARIOUS  FLAT  AND 

*  PARAMETER  LOCATIONS  USEE  IN  THE  READING  PFOCESS.  BREADS  ALSO  OPENS 

*  THE  FILE  AND  CAUSES  THE  PTRST  RECORD  OF  AH’  ALTAIR  TAPE  TO  BE  READ. 

*  THE  DATA  FROM  THE  FIRST  RECORD  IS  NOT  AVAILABLE  TO  ’’HE  USER  HOWEVER, 

*  UNTIL  THE  RFADING  CALL  EREAD  IS  GIVEN.  THE  BREAD  CALL  MOVFS  THE  DATA 

*  FROM  THE  FIRST  RECORD  INTO  AN  AREA  WHEHF  IT  IS  MADE  AVAI LABLF  TO  THE 

*  FORTRAN  USER  AND  ALSO  INITIATES  THE  READING  OF  THE  SECOND  RECORD. 

*  SUCCEEDING  RECORDS  ARE  NOW  READ  BY  THF  BREAD  CALL. 

* 

*  CALLING  SEQUENCES 

* 

*  CALL  BREADS (LN, IBUF1 ,IBUP2, MAX. IFL, INDX ,LEN, IFLG, I  ADD) 

* 

*  WHERE  LN  IS  NOT  APPLICABLE  TO  OS.  DUMMY  PARAMETER. 

*  IBUF1  IS  THE  BEGINNING  OF  THE  PIRST  BUPFER. 

*  IEUF2  IS  THE  BEGINNING  OF  THE  SECOND  BOPFEP. 

*  MAX  IS  THE  MAXIMUM  RECORD  LENGTH  TO  BE  RFAD. 

*  IFL  IS  A  FILE  COUNTER  LOCATION  WHICH  IS  INCREMENTED  BY  ONE 

*  FOR  EACH  END  OF  FILE  MARK  DETECTED. 

*  INDX  IS  SET  TO  EITHFR  1  OR  2  AND  DEFINES  WHICH  BUFFER  WAS 

*  CSED  TO  READ  A  RECORD. 

*  LEN  IS  SET  TO  GIVE  THE  ACTUAL  RECOPD  IFNGTII  READ. 

*  IFLG  IS  A  FLAG  LOCATION  USED  TO  STORF  FARITY  AND  END  OF  FILE 

*  INDICATORS.  1  =  NORMAL  READ,  2  =  PARITY  FRROR,  AND 

*  3  *  EOF. 

*  I  ADD  IS  SET  TO  THE  ACTUAL  ADDRESS  OF  THE  READ  BUFFER  USED  FOR 

*  READING. 

* 

*  CALL  PRFAD(LN) 

* 

*  THIS  COMPLETES  THE  READING  OF  A  RECORD  FROM  THE  SPECIFIED  TAPE 

*  AND  INITIATES  THE  READ  OF  THE  NEXT  RECORD.  THIS  CALL  ALSO  SETS  THE 

*  THE  FILE  COUNT,  INDEX  VALUE,  LENGTH,  FLAG  AND  BUFFER  ADDRESS  TO  THE 

*  PECPEP  VALUES  FOR  THE  READ  JUST  COMPLETED. 

* 

*  CAIL  REW  (LN) 


REWINDS  THE  TAPE. 
VERSION  02/19/70 
MACRO 

SSAVA  6GR,CSA 
E  ALP  6GR,0 
USING  * , EG  R 
LR  12,13 
LA  13, ESA 
ST  12,4(0,13) 
ST  13,8(0,12) 


BP  E  000  1  0 
BRE  000  2  0 
BRE00030 
BREC00U0 
DREOOOSO 
BRE00060 
BRE00070 
BRPOOORO 
BRE000O  0 
BREOO 1 00 
RREOO  1  10 
B  R  E00 1 2  0 
BRE001 30 
BRP001U0 
BRE001S0 
BRE00160 
BRE00170 
BREOO 180 
BP  E  00 1 0  0 
BRE00200 
BREOO? 1 0 
P.PE00220 
BREOO 2 30 
BRS002U0 
PRE00  2S0 
BPE002HO 
PR  000  27  0 
BP E 00280 
BP  E  00  29  0 

breoo  no 

B  P  E  0  0  3  1  0 
PREOO  120 
3RR  00  3  30 
BPEOO  14  0 
BRE003SO 
BREOO  160 
BPEOJ  no 
BREOO  180 

BREOO  no 
BRE0QU30 
RRE004 1 0 
BRE 00420 
BRE  004  .10 
BRE00440 
BRE00450 
BREC0U60 
BRE0047Q 
BRE004  9  0 
BRE  0049  0 
RREOOSOO 
BRF00S10 
BRE00520 
BRF00S30 
PRE00S40 
BREOJSSO 


5 


BRF  ADS 


BRE AD2 


HR EAD3 


?FW  . 


DROP 

MEND 

15 

BHE00560 

BRFC0570 

ENTRY 

DREAD 

BRF00580 

ENTRY 

REV 

BREC0590 

ENTRY 

BREADS 

BPE00800 

USING 

*,15 

BREOOfi  10 

STM 

14,12,12(13) 

BRF  008  2  0 

LP 

12,13 

BRE008  30 

LA 

13, SAVE 

BRP0084  0 

ST 

12,4 (0,13) 

BRE 00 8S  0 

ST 

13,0(0,12) 

BRE00680 

ST 

1 ,  SA  VEP 

BP  E  008  7  0 

nvi 

CC,X'00' 

BRE00880 

«”I 

TAPCE, X  '  FF ' 

BRE93890 

LM 

2,10,0(1) 

ERE00700 

L 

2,0  (0,2) 

BRE007  10 

ST 

2, UNIT 

BRE00720 

ST 

3,  ABUP1 

P°  F  007  30 

ST 

3 , CUR  BF 

PRF0074  0 

ST 

4,  ABUF2 

BRFC07S9 

L 

5*0 (0,5) 

B  PE  O')  7  0 

ST 

5, LENGTH 

BREC0770 

ST 

6, 1  FT, 

BRE007F  0 

SR 

5,5 

BRECO" 70 

ST 

5,0 (0,5) 

ERECl  800 

ST 

7 , 1 N  DX 

B  R  E  03  8  1  0 

ST 

8  ,  LE  N 

BRF 0  )8  20 

ST 

9,IFLG 

BREC0P30 

N 

10, CONI 

BRE00840 

ST 

10, I  ADD 

BRE00850 

L 

8,CURBP 

BREC0880 

USING 

IH  ADC  D, 5 

B  RE0987  0 

LA 

5 , RDCB 

PREC0R80 

T« 

CCBOPLGS , X  •  1 0  • 

BPECC390 

BNO 

BREAC2 

BPEC0900 

M  VI 

SHOW , X ' 7  0 ' 

BPECOO  10 

E 

ERFAD1 

BR  E  COO  2  0 

LR 

9,15 

BREC0U10 

CLOSE 

(RDC  B, R  ERF  AD) 

BRF  C0940 

LR 

15,9 

BPFC0950 

OPEN 

RDCB 

BPFCOOhO 

LR 

15,9 

BPE00970 

01 

DCBIFLGS, X'OC' 

BPECOO 80 

MV  I 

KERR, X»00  • 

BREC0900 

M  V I 

SHOW , X ' 0  1 ' 

BREOIOOO 

M  V I 

CC, X • PF 1 

B  R  E  0 1  0  1  0 

B 

ERF  ADI 

BRFO  1020 

USING 

*,15 

BRFO 101 0 

STM 

14,12,12(13) 

BREOIOOO 

LE 

12,13 

BB  E  0 1 0  50 

LA 

13, SAVE 

BRS0108  0 

ST 

12,4  (0,13) 

P  P  E  0  1  0  7  0 

ST 

13,8(0,12) 

BRF  )  1 08  0 

LR 

9,15 

BREOIOOO 

CLOSE 

(RDCB, REREAD) 

BRE01 1 00 

6 


'  '  . .  irnriyii|iipM  u^ng^ni 


T.R 

15,9 

BREC  '10 

FI  V I 

IFL+3, X' 00* 

51RE0  ■  '.t  0 

AVI 

EOFCTR*  3 ,  X  '  0  1  ' 

BBEC1 1 30 

NVI 

CC.X'OO' 

BRE01 140 

L 

13, SAVE +4 

BBE01 1  SO 

RETURN 

(14,12) ,  PC*0 

BREO 1180 

USING 

*,15 

BREO 1 170 

BREAD 

ST  fl 

14,12,12(13) 

BREO 1  180 

LR 

12,13 

BREP1  190 

LA 

13, SAVE 

BREU1200 

ST 

12,4(0,13) 

BREO  1210 

ST 

13,8 (0, 12) 

BPE01220 

URFAD1 

PALP 

11,0 

BRE01210 

USING 

*,11 

BREO  1  24  0 

FILBUF 

L 

8 , CU  R  BP 

BREO 1 2  SO 

LA 

7,5 

BREC12B0 

3T 

7  ,  CTR 

BRS01270 

T  FI 

SHOW , X ' 7  0 ' 

BRE01280 

BO 

CK 

BRE01200 

Tfl 

SHOW , X ' 0  1  • 

BRE01 300 

BC 

RDAHD 

BRE01 310 

TB 

CC,X' PF* 

BRE01  320 

BC 

CK 

BREO 1 330 

RD 

1  VI 

KERR , X ' 00 • 

BREO  134  0 

READ 

ERDCB,SF,FDCF, ABUPA  ,X'2003* 

BRE01  ISO 

1 VI 

SHOW ,  X '  0  2 ' 

BREO  1  30  0 

TM 

CC,X "PP* 

BRE01 370 

BO 

RETURN 

BRE01380 

Tfl 

TAPCE.X*  FF' 

BRE01 370 

3  NO 

RDAHD 

BREO  1  '4"0 

CK 

CHECK 

ERDCB 

BREO 1  1 10 

Tfl 

SHOW , X ' 70  ' 

BREO  1  *20 

B  NO 

NEXT 

BREO 14  30 

BUS'5 

3  SP 

RDCB 

BREO 1440 

fl  V I 

KERR ,X' 00' 

BREO 1 4  5  0 

FI  V  I 

SHOW , X ' 0  1 ' 

BREOlUtO 

1VI 

CC , X ' FF ' 

BREO  147  0 

B 

FILBUF 

BREO 1 48  0 

next 

Fl  VI 

SHOW , X • 0  3 • 

BREC  1400 

Tfl 

KERR , X' FP • 

BRE01S00 

BO 

EBROB 

BREO  15  10 

PAL 

14, HOVE 

BRE01520 

RDAHD 

LA 

8.1 

BRE01530 

L 

7 , IPLG 

BRE01S40 

ST 

8,0  (0,7) 

BREC1SS0 

SR 

7,7 

BREO  15f>0 

L 

8.CURBP 

BRE01S70 

LH 

7, 2(0, 8) 

BRFO  1880 

L 

8 ,  LEN 

BREO 1540 

ST 

7, 0(0, 8) 

BRE01600 

E  AL 

S, SWITCH 

BRE016  10 

fl  VI 

TAPCE, X • 00 ' 

BRE  0162  0 

nvi 

CC , X • FT  * 

BREC1S30 

L 

8.CURBF 

BRE016U  0 

LA 

7,5 

BREC16S0 

7 


ST 

7 ,  CTR 

BREOIbbO 

B 

RD 

BREO  187  0 

BPTUFN 

L 

13, SAVE*4 

BRE01880 

HVi 

SHO H , X • 04  • 

BRE01890 

LI 

14,  12,12(13) 

BRE01700 

RETURN 

1  RC=0 

BREO 1710 

SWITCH 

L 

8,CURBF 

BRE01720 

L 

6,  INDX 

BRBC17  30 

L 

7 ,1  ADD 

BRE01740 

ST 

8.0 (0,7) 

BRE017S0 

5 

B, ABUF1 

BREO 1780 

BZ 

BB 

BRE01770 

I 

8,ABUF1 

BRE01780 

l» 

9,2 

BREC  179  0 

rs 

SSWA 

BRE01800 

BH 

L 

8,  ABUF2 

BRE018 10 

LA 

9,1 

BREO  l« 20 

SSWA 

ST 

8 , CU  R  BF 

BRE018  30 

ST 

9, 0(0, 6) 

BRE018U0 

BR 

8 

BREO 1880 

RDCP 

CCB 

DSORG=PS,BACRF=RC, D EV D  =  TA , DEN* 2,  TRTCH  =  C , R EC =U , 

BLKS IZ  E=  8 1 32 , BUPNO  =  2, EODAD=EOF, STN AD-TPSTM , DDN AH£= R ALT7 , 
BFTEK=S 

XPRE01360 
XBPE01870 
BRE01  IP  0 

TPSYN 

MVI 

KERR , X' FF' 

BREC IflOO 

BF 

14 

BRE01900 

PDF 

LA 

8,3 

BRhOIS 10 

L 

7, IFLG 

PREC 1320 

ST 

a, 0(0, 7) 

r  RE  0 1 9  3  0 

L 

8.EOFCTR 

LRE01340 

A 

8, ONE 

BRE01980 

ST 

8 , EOFCTR 

BHEC1380 

L 

7,  IFL 

BR  E  0  1 97  0 

ST 

a, 0(0, 7) 

BRF019Q0 

MVI 

TA  PC  E , X ' 00 ' 

BRE01930 

MVI 

CC , X • FF ' 

BRE02000 

B 

RD 

BnE020 10 

ERROR 

L 

7, CTR 

BRE02020 

BCT 

7,*»4 

BRE020  30 

ST 

7, CTR 

B  RE  020  4  0 

nvi 

CC,X*00* 

BRE020S0 

nvi 

TAPCE, X'FF' 

BREO 2060 

I.TR 

7,7 

BREC2070 

BN7, 

BSP 

BRF02080 

nvi 

TAPCE, X'OO* 

BRF02090 

LA 

7.2 

BRE02 100 

l 

8, IFLG 

BRE021  10 

ST 

7,0  (0,8) 

B RE  02120 

MVI 

CC , X  *  FF • 

BRE(321  30 

B 

RD 

BR502 140 

BSP 

ESP 

RDCB 

BRE021S0 

B 

RD 

BRE02160 

•HOVE 

t. 

2,CDRBF 

BRE02170 

L 

9,LENGTR 

BRE02180 

AR 

9,2 

BRE02190 

LA 

8,4 

BR',C2200 

H  rn  HHSS  MMi 

8 

LA 

3, ABUFA 

BRE022 1 0 

LOOP 

nvc 

0(224,2)  ,0  (3) 

BRE  02220 

NVC 

224(224,2) ,224(3) 

BRE022  3  0 

NVC 

446  (224,2)  ,448  (3) 

BRE02240 

NVC 

672(224,2) ,672(3) 

BREC2250 

NVC 

096  (224,2)  ,896  (3) 

BRE02260 

NVC 

1120(220, 2), 1120(3) 

BRE0227  0 

NVC 

1340(220,2) , 1340 (3) 

BRF.02280 

NVC 

1560  (220,2)  ,  1560  (3) 

BRE0229  0 

NVC 

1780(220,2) ,1780(3) 

BRE02300 

NVC 

2000  (48,2)  ,2000  (3) 

BREC231 0 

A 

3, T2048 

BREC2320 

A 

2,T2048 

BRE023  30 

CR 

9,2 

BR  E02  34  0 

ecr 

13,14 

BRE02350 

nCT 

8, LOOP 

BRE02360 

BR 

14 

BRE0237  0 

T2oue 

DC 

F'2048' 

BRE02380 

CON  1 

DC 

X'OOOFFFFF' 

BRE02390 

KERR 

DC 

X'OO* 

BRE02400 

TAPCfc 

DC 

X'OO' 

BREC24 10 

CC 

DC 

X'OO' 

BRE0242C 

SHOW 

DC 

X'OF' 

BRE02430 

EOFCTR 

DC 

F'  1* 

BRE02440 

CTR 

DC 

F'  0 ' 

BRE  0245  0 

UNIT 

DC 

F'  0 ' 

BRE02460 

SAVEP 

DC 

F'  O' 

BREC247  0 

CUBBF 

DC 

F'  0  ' 

BRFC2480 

ABUF  1 

DC 

F'  0  * 

BRE0249  0 

ABU F  2 

DC 

F'  O' 

BRE02500 

LENGTH 

DC 

F'O* 

BRE02610 

I  Ft 

DC 

P'O* 

BRE02F  20 

IN  DX 

DC 

F'O* 

BRE02530 

LEN 

DC 

F'O* 

BREC2540 

I FLG 

DC 

F'O* 

BRE02550 

TADD 

DC 

F'O* 

BRE02560 

SAVE 

DC 

1 8  F  •  —  1  • 

BRE02570 

ONE 

DC 

F '  1 ' 

BRE0258  0 

ABUF  A 

DS 

2048F 

BRE02590 

CCBD 

BRE02600 

END 

BRE028 10 

APPENDIX  B 

SUBROUTINE  HDRR  PROGRAM  LISTING 


hdrr  retrieves  data  from  tape  header  record 


THIS  SUBROUTINE  HAS  TWO  ENTRIES,  HDRR  AND  NAMET.  HDRR  IS  USED 
TO  GAIN  ACCESS  TO  TAPE  HEADER  RECORD  FMHDRD  WHICH  APPEARS  AS  THE 
FIRST  RECORD  OF  A  RADAR,  CATALOG,  OR  TRANSCRIPTION  TAPE.  NAMET  IS 
USED  TO  CONVERT  THE  4  CHARACTER  BCD  NAMES  OF  OTHER  DATA  BLOCK  FORMATS 
TO  EBCDIC.  THIS  PERMITS  THE  FORTRAN  PROGRAM  TO  BYPASS  THE  STORAGE  OF 
FORMAT  TABLES  NOT  NEEDED  BY  THE  PROGRAM. 


*  CALL  INF  SEQUENCES 

* 


*  C  A  IT  HDRR  (I  ADC,  ITY  P,  IDARR) 

* 


WHERE  I  ADD 
IT  YP 


ir  ARR 


IS  SET  TO  THE  ACTUAL  ADDRESS  OF  THE  READ  BUFFER  USED 
FOR  READING. 

INDICATES  THE  TYPE  OF  TAPE;  INTEGER  VARIABLE. 

WHERE: 

1  =  CATALOG  TAPE 

2  -  TPANSCRI FTICN  TAPE 
5  =  RADAR  TAPE 

DATA  TAPE  IDENTIFICATION  IN  EBCDIC.  DIMENSIONED  EIGHT 
WORDS.  CONTAINS  CLASSIFIED  INFORMATION  SO  SHOULD  ONLY 
PE  USED  WITH  DISCRETION. 


CALI.  NAMET  (IADD, NAMED) 

WHEPE  I  ADD  IS  SET  TO  THE  ACTUAL  ADDRESS  OF  THE  READ  BUFFER  USED 
FOR  READING. 

NAMED  IS  THE  4  CHARACTER  EBCDIC  NAME  OF  THE  FORMAT  TABLE 
MCST  RECENTLY  PROCESSED  BY  THF  READ  RODTINE. 

VFRSICN  1 1/20/6Q 


HDRF 


LOOFTW 


START 

0 

ENTRY 

NAMET 

ENTRY 

HDRR 

USING 

*,15 

STM 

14,12,12(13) 

LR 

12,  13 

LA 

13, SAVE 

ST 

12,4(0,13) 

ST 

13, fl  (0,  12) 

LM 

2, 4, 0(1) 

L 

2, 0(0, 2) 

L 

6,8  (0,2) 

ST 

6, 0(0, 3) 

LA 

3,3 

LR 

5,4 

LA 

9, SAVER 

LM 

6,8,12(2) 

STM 

6, 9, 0(9) 

SRDL 

6,7 

SIL 

6,2 

SLDL 

6,6 

SLL 

6,2 

10 


■y 


. . .  (  •  — "’■f^***** II .■  filial'  u  ■).. 


■•V  1  V.™ 


SIDL 

6,6 

SLL 

6,2 

SLDL 

6,6 

ST 

6, 0(0,  4) 

LR 

7,8 

SR 

6,6 

S  LI 

7,8 

SIDL 

6,6 

SLL 

6,2 

SIDL 

6,6 

SLL 

6,2 

SIDL 

6,6 

SLL 

6,2 

SLDL 

6,6 

ST 

6,«  (0,4) 

A 

4 , =P ' R  ' 

A 

2, =F • 1 2  » 

A 

9 ,  =  P '  1 2  * 

BCT 

3,  LOOPTN 

TRNSLVN 

TR 

0(24,6) .TABLE 

L 

13, SA VE+4 

LN 

14,  12,  12(13) 

RETURN  RC=0 

USING 

M5 

NAHE1 

STH 

14,  12,  12(13) 

LR 

12,13 

EALR 

11,0 

USING 

*,11 

LA 

13, SAVE 

ST 

12.4(0,  13) 

ST 

13,8(0.  12) 

L  ft 

4, 5, 0(1) 

L 

4,0  (0,4) 

LM 

2,  3,0(4) 

N 

2,  =X ' OOOOOOPP ' 

SRDL 

2,2 

SLL 

2,2 

SLDL 

2,6 

SLL 

2.2 

SLDL 

2,6 

SLL 

2,2 

SLDL 

2,6 

ST 

2, 0(0, 5) 

TR 

0  (4,6)  .TABLE 

L 

13, SA VE*4 

LH 

14,  12,12(13) 

RETURN  RC=0 

SAVE 

DC 

1 3  P  *  —  1  ' 

SAVE! 

DC 

2  0  F ' 16' 

TABLE 

DC 

C'0123456789  =• 

DC 

C"»  /STUVNX 

DC 

C'YZ  .)  -JKL* 

DC 

C'NNOPQR  $*  • 

DC 

C ' ♦ABCDEPGHI  ,( 

END 

11 
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APPENDIX  C 

SUBROUTINE  FORM  PROGRAM  LISTING 


***fcbm  stores  cm  BLOCK  pofmats 

* 

*  THIS  SUBROUTINE  STORES  A  MO  UNPACKS  SELECTED  DATA  BLOCK  FORMATS 

*  IN  A  CONVENIENT  PORH  EOF  LATER  USE  BT  THE  GET/IGBT  FUNCTIONS. 

* 

*  CALLING  SEQUENCES 

* 

*  CALL  FORM  (IADD,  ITEM,  IB,  NAMED,  NTBM,ARG6) 


*  KHEPE 

IADD 

IS  SET  TO  THE  ACTUAL  ADDRESS  OF  THE  READ  BUFFER  USED 

* 

for  reading. 

TTEM 

IS  THE  FORMAT  TAPE  IMAGE.  EACH  ITEM  IS  STORED  IN  SII 

* 

HALFWORDS.  ITEM  MUST  BE  DIMENSIONED  TO  THE  TOTAL  NUMBER 

* 

OF  ITEMS  STORED  X  6. 

* 

IB 

IS  THE  ITEM  EASE  INDEX 

• 

* 

NAMED 

IS  THE  4  CHARACTER  EBCDIC  NAME  Of  THE  FORMAT  TABLE 

* 

MOST  RECFNTL Y  PROCESSED  BT  THE  READ  ROUTINE. 

* 

NTEM 

IS  THE  NUMBER  OF  ITEMS 

IN  THE  MOST  RECENTLY  READ  PORMAT 

* 

TABLE. 

* 

A  RGB 

IS  AN  ABNORMAL  RETURN; 

6STAT  EMENT  LABEL.  OCCURS  WHEN  A 

* 

FORMAT  TABLE  HAS  MORE 

THAN  700  ITEMS  OR  WHEN  A  FORMAT 

* 

•Jf 

TABLE  HAS  0  LENGTH. 

* 

* 

VERSION  1  0/27/64 

START 

0 

ENTRY 

FORM 

SEARCH  FORMAT  TABLES 

USING 

*.15 

FOR* 

B 

F5 

DC 

XL1'05* ,CL5'FORH' 

ENTRY 

FS 

STM 

2,  10, 2R(13) 

SAVE  FORTRAN  REGISTERS  USED 

LM 

5. 9. 0(1) 

LOAD  INDEXES  TO  TABLES 

* 

5  IADD  -  TAPE  I/O  AREA 

♦ 

6  ITEM  -  FORMAT  TAPE  IMAGE 

* 

7  IE  -  ITEM  EASE  INDEXES 

* 

8  NAME  -  FORMAT  NAflES 

* 

9  NTEM  -  NUMBER  OF  ITEMS/FORM 

ST 

8.0(7) 

BASE  ADDRESS  IN  BITES 

L 

5,0(5) 

LOAD  ADDRESS 

M  VC 

WD41(1),0(5) 

STANDARD  WORD  BOUNDRY 

N  I 

WD.X'OO* 

LH 

4, WD+2 

LOAD  2  BYTE  LENGTH  OF  FORMAT 

SBL 

9,1 

DIVIDE  FORMAT  LENGTH  BY  2 

S 

4 ,  -=F  '  1  ' 

NUMBER  Of  ITEMS 

LR 

10,4 

SAVE  NO.  OF  ITEMS  *1 

ST 

9,0(9) 

STORE  NTEM 

N  VC 

WD*1  (3)  ,3(5) 

24  BIT  NAME 

L 

2,  WD 

LOAD  BCD  NAME 

LA 

1.9 

4  BCD  LETTERS 

SRDL 

2,6 

6  BCD  BITS/BYTE 

SRL 

3.2 

2  ZEFO  BITS/BYTE 

ECT 

1,  F10 

ST 

3,0(8) 

STORE  NAME  IN  BCD 

TR 

0(4,8)  .TABLE 

TRANSLATE  NAME  INTO  EBCDIC 

C 

4,=F'0' 

TEST  FOR  ZERO  TABLE  IENGTH 

12 


BNH 

F45 

C 

4, =F • 700*  10/27/69 

TEST  FOB  TOO  LONG 

BNL 

P45 

LA 

5,6(5) 

NEST  I TEH 

H  VC 

WD+1  (3)  ,0  (5) 

L 

4,  HD 

N 

4,  =  X ' 007FFFFF  ' 

DROP  8  BIT 

SR 

2,2 

L5 

3,4 

D 

2 ,  =F ' 100000' 

STH 

3,0(6) 

P 

n 

2 ,  =F' 100000' 

SR 

**,3 

SR 

2,2 

LE 

3,4 

D 

2,  =  F' 10000* 

STH 

3,2(6) 

H 

(1 

2,  =F' 10000' 

SR 

4,3 

STH 

4,4(6) 

RBRR 

SH 

2,2 

nvc 

WDM(3),3(5) 

CH 

2,2(6) 

BNE 

F35 

HODE  ZERO 

five 

«  (4,6), 2(5) 

360  FLOATING 

CH 

2,0(6) 

BTTE  ADDRESS 

BNE 

F40 

L 

7, HD 

HANTISSA 

SLL 

7,8 

SR 

9,4 

CR 

7,2 

NEGATIVE 

DNL 

F20 

LA 

4,1 

SLL 

7,1 

DROP  SIGN  BIT 

SRL 

7,1 

SRL 

7,8 

TN 

0  (5)  ,X '80' 

BO 

F25 

TM 

3  (5)  ,  X  '  40 ' 

BO 

F25 

0 

7, =X '46000000 • 

INTEGER  EXPONENT 

CH 

2,4(6) 

BE 

F30 

SLL 

7,8 

DROP  EXPONENT 

SRL 

7,8 

LH 

2,4  (6) 

SLL 

2,23 

SRA 

2,23 

AH 

2,  -X  '  0  10  3 ' 

SRDL 

2,2 

SRL 

3,  30 

SLL 

7,0(3) 

SRL 

7,2 

SRDL 

2,8 

OR 

7,3 

13 


V 


F30 


F35 


F  U  0 


F45 

WD 

* 

TABLE 


SLL 

9,31 

OR 

7,9 

ST 

7,9(6) 

8 

F4  0 

L 

4, HD 

LR 

3,9 

D 

2, =P* 10000' 

STH 

3,6(6) 

XX 

n 

2, =P» 10000* 

SR 

9,7 

SR 

2,2 

LR 

3,4 

D 

2, =F ' 100» 

STH 

3,B(6) 

NN 

n 

2, =F ' 100' 

SR 

9,7 

STH 

9,10  (6) 

RB 

LA 

6,12 (6) 

BCT 

10, FI  5 

RETURN 

(2,10) 

RETURN  (2,10) , RC=4 

cc  F,°'  STANDARD  RORD  BOUNDRT 

BCD  TO  EBCDIC  TABLE 

DC  XL16,F0F1r2F3P4P5F6F7P8F9404040404040, 

DC  XL16'4040E2E3E4ESE6E7E8E9404040404040‘ 

DC  XT.16'40DlD2D3n4D5D6D7D8D94040404040  40' 

DC  XL16'40C1C2C3C4C5C6C7C8C9404040404040» 

LTORG 

END 


« 
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APPENDIX  D 

SUBROUTINE  GETS  PROGRAM  LISTING 
GETS  DATA  EXTRACTOR 

THIS  SUBROUTINE  IS  DESIGNED  TO  USE  DATA  BLOCK  FORMAT  DESCRIP- 
*  TI0N  T0  ACQUIRE  DATA  BY  a  FORTRAN  USER.  IT  IS  USED  AS  A  FUNCTION 

SUBROUTINE. 

ONCE  THE  DATA,  INCLUDING  THE  FORMAT  TABLES,  ARE  IN  CORE, 
PARTICULAR  DATA  ITEMS  MAY  BE  ACQUIRED  BY  MEANS  OF  THE  ENTRIES, 

GET  AND  IGET.  EACH  OF  THESE  ENTRIES  WILL  LOCATE  ANY  DATA  ITEM, 
UNPACK  IT,  AND  INTERPRET  IT  ACCORDING  TO  THE  INFORMATION  IN  THE 
FORMAT  TABLE.  THE  ITEM  IS  RETURNED  AS  A  BINARY  INTEGER  (IN  THE  CASE 
OF  IGET)  OR  AS  A  FLOATING  POINT  NUMBER  (IN  THE  CASE  OF  GET). 

*  CAILTNG  SEQUENCES 

* 

*  GET  (OR  IGET)  REQUIRES  THREE  ARGUMENTS: 


GET  (FORMAT, BASE, ITEH) 


*  SHFFE 

FORM  AT  IS  THE  RELEVANT 

FORBAT 

TABLE  ADDRESS. 

* 

BAS  E 

IS  THE  BASE  ADDRESS  OF 

THE  DATA  BLOCK  DESIRED 

* 

ITEM 

IS  THE  NUMBER  OF 

THE  SPECIFIC  ITEH  DESIRED  IN 

* 

* 

THAT  DATA  BLOCK. 

* 

* 

VERSION  09/17/70 

START 

0 

ENTRY 

IGET 

FIX  POINT  OUTPUT 

ENTRY 

GET 

FLOATING  POINT  OUTPUT 

USTNG 

*.15 

IGET 

B 

G5 

DC 

XL  1 '  OS ' ,  CL5* IGET’ 

TRACE  NAHE 

G5 

H  VI 

KEY ,  X  '  0  1 ' 

IGET  KEY 

B 

G 1 S 

USING 

*.15 

GET 

B 

G10 

DC 

XL1 ' 0  3 ' ,CL 3 'GET ' 

TRACE  RARE 

G  1 0 

H  VI 

KEY, X ' 02 ' 

GET  KEY 

G 1 5 

STM 

2, 11,  28  (13) 

SAVE  FORTRAN  REGISTERS 

E  AIR 

11,0 

USING 

*,11 

LH 

7, 9, 0(1) 

* 

7  FORMAT  ADR 

* 

8  BASE  NUMBER  ADDRESS 

♦ 

9  ITER  NUMBER  ADDRESS 

* 

L 

7,0(7) 

10  H 

L 

3.0(8) 

BASE  ADDRESS 

L 

5.0(9) 

ITEH  NUMBER 

S 

5,  =F '  1' 

n 

9,=F' 12' 

CONVERT  TO  BYTES 

AR 

7,5 

ITEH  ADDRESS 

SR 

2,2 

LH 

10,2(7) 

CR 

2,10 

TEST  H 

BNE 

G35 

15 


five 

WD  (4)  ,8(7) 

FLOATING  POINT  WORD 

B 

G  1 22 

G20 

TH 

KEY, X'  02  • 

TEST  FOR  FLOATING  ANSWER 

BC 

G30 

G25 

RETURN 

i  (2,11) 

G30 

0 

0, =X' 46000000 ' 

EXPONENT 

ST 

0,  WD 

G32 

SER 

0,0 

NORMALIZE 

AF 

0 ,  W  D 

GET 

B 

G25 

G35 

LH 

3,4(7) 

RRRR 

S 

3,  =  F'  1 ' 

CH 

2,0(7) 

TEST  P 

BNE 

G40 

LR 

1,3 

MULTIPLY  RRRR  BY  3 

AR 

3,  1 

AR 

3,1 

GUO 

AR 

8,-7 

DATA  ADDRESS 

C 

10, =P • 6 • 

TEST  H 

BE 

G  1  35 

224  FLOATING  POINT 

BH 

G120 

360  FLOATING  POINT 

♦ 

1  DATA 

* 

2  ZERO 

* 

4  XX 

* 

5  NN 

* 

6  BB 

* 

7  H 

LH 

4,6  (7) 

CR 

4,2 

TEST  II 

BNE 

G45 

LA 

4,1 

XI  =  1 

LA 

5,,  24 

NN  =  24 

LA 

6,24 

BB*24 

P 

G50 

G45 

LH 

5,8(7) 

NN 

LH 

6,10(7) 

BB 

* 

LEFT  ADJUST  DATA 

G50 

SR 

9,9 

POSITION  NUMBER 

HVC 

WD  (4)  ,0(8) 

DATA  ON  WORD  BOONDRY 

L 

3 ,  WD 

LOAD  DATA 

s 

4,=F» 1* 

SLL 

3,0(4) 

LEFT  ADJUST  DATA 

AR 

10,10 

MULTIPLY  M  BY  4 

AR 

10,  10 

B 

GG-4  (  10) 

GG 

B 

G55 

H=1  POSITIVE 

B 

G60 

M=2  SIGN  MAGNITUDE 

B 

G60 

M-  3  SIGN  MAGNITUDE 

B 

G7  0 

M=4  2'S  COMPLEMENT 

B 

G80 

H=5  1'S  COMPLEMENT 

G55 

S  LDL 

3,0(5) 

POSITIVE  DATA 

B 

G85 

G60 

CR 

3,2 

TEST  DATA 

BNL 

G58 

POSITIVE 

SLL 

3,  1 

DROP  SIGN  BIT 

16 


SBL 

3,1 

G65 

LA 

9,  1 

R 

G55 

G70 

CR 

3,2 

BNI 

G55 

G75 

SR 

2,3 

LR 

3,2 

SR 

2,2 

B 

G65 

080 

CR 

3,2 

BNL 

055 

SLDL 

2,0(5) 

LA 

2,1(2) 

SROL 

2,0(5) 

B 

G75 

G8  8 

T  B 

KEY , X ' 0  2 ' 

BO 

G  1  00 

CR 

5,6 

BH 

G9  0 

SR 

6,5 

SLL 

2,0(6) 

B 

G9^ 

08  0 

SR 

5,6 

SSL 

2,0(5) 

GO  5 

LR 

0,2 

SR 

1,1 

CR 

9,1 

BE 

G25 

SR 

1,2 

LR 

0,1 

B 

G25 

G  100 

CR 

6,5 

El 

G110 

SR 

6,5 

LR 

1,6 

N 

1,  =  F*  3' 

SLL 

2,0(1) 

SRL 

«,2 

LA 

6,70  (6) 

G105 

SLL 

6,24 

SLL 

9,31 

OR 

6,9 

OR 

2,6 

ST 

2,  WD 

LE 

0  ,  W  D 

B 

G25 

01  10 

SR 

5,6 

LE 

1,5 

SRL 

5,2 

N 

1 , =F ' 3 ' 

SR 

3,3 

CR 

1,3 

BE 

G115 

LA 

5,1  (5) 

LA 

3,4 

NEGATIVE  NUBBER 

2 ' S  COBPLEHE NT 
POSITIVE 
BAKE  POSITIVE 


I'S  COHPLEHENT 
POSITIVE 

CONVERT  TO  2'S  CONPLEHENT 


TEST  ENTRT 
ELOAT 

TEST  NN, BB 

NN>BB 

BB-NN 

EXIT 

NN-BB 

ANSWER 

TEST  SIGN 
POSITIVE 
HAKE  NEGATIVE 


TEST  BB, NN 

BB<NN 

BB-NN 


POWER  OF  2 
POWER  OF  16 
EXPONENT 

P0SITI05  EXPONENT 
SIGN  BIT 
SIGN ♦EXPONENT 
ANSWER 


NN-BB 

POWER  OF  16 
POWER  OF  2 


ZERO  POWBR  OF  2 


SLL 

2,0(3) 

Cl  15 

LA 

(j,  70 

SB 

6,5 

B 

G  105 

G  1 20 

nvc 

«D  (4)  ,0(8) 

G 1  22 

Tfl 

KEY,X'02‘ 

BO 

G32 

L 

3,  WD 

SB 

2,2 

SLDL 

2,1 

LR 

0,2 

SR 

2,2 

SLDL 

2,7 

SRL 

3,0 

LA 

1,70 

CR 

2,1 

BL 

G 1  30 

SR 

2,1 

SIL 

2,2 

SLL 

3,0(2) 

G  1  25 

LR 

0,3 

SB 

2,2 

CR 

2,9 

BE 

G25 

SR 

2,3 

LR 

0,2 

B 

G25 

G  1 30 

SB 

1.2 

SxL 

1.2 

SRL 

3,0(1) 

B 

G 1  25 

G135 

AVI 

WD+7,X'00' 

M  VI 

WD.X'OO' 

LA 

2.0 

H  VC 

WD ♦  1  (3)  ,0(8) 

LA 

3.0 

(1  VC 

WD+4 (3)  ,3(8) 

L 

4  ,  W  D*  4 

TESTKAN 

LIR 

5,4 

SIL 

4.1 

BC 

10.TSTEXP 

AVI 

NA  NFLG , X ' 8  0 • 

TSTE  1  P 

Tfl 

WD+2 , X' 01' 

BZ 

POSEXP 

AVI 

EXPELS, X'FF' 

XI 

WD+3, X' FF' 

IC 

3, WD»3 

A 

3  ,  =F '  1  ' 

D 

2,=F'4» 

STC 

2 .SHIFT +3 

BC 

15, SHIFT 

POSEXP 

IC 

3.WD+3 

D 

2,=F'4« 

C 

2  ,=F*  0 ' 

STAWDARD  EXPONENT 

360  FLOAT  DATA 

LOAD  DATA 

SIGN  BIT 

EXPONENT 

E<70 

HOLTIPLY  BY  2 


BARE  NEGATIVE 

DROP  BITS 
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>mr. 

r*  *  V  -  ^  n 


***?'- 


5  'f-r 


SHIFT 

R  ERZERO 
NEWEXP 


NEGEXP 

STFLET 


EKPFIG 

HANFIG 

WD 

KEY 


BC 

8,REMZERO 

LA 

5,4 

SR 

5,2 

STC 

5, SHIFT*  3 

SRL 

4,0 

BC 

15, NEWEXP 

S 

3,=F 1 1  • 

LA 

5,  65 

T  H 

EXFFLG,X • FF' 

BC 

1, NEGEXP 

AR 

5,3 

BC 

15, STFLPT 

SR 

5,3* 

S 

',=P'1' 

SRL 

*♦,8 

ST 

4 ,  WD 

STC 

5,  WD 

OC 

WD  (1)  , MANFLG 

B 

G122 

DC 

X*  00* 

DC 

X'OO* 

DS 

2F 

DS 

CL  1 

LTORG 

LTORG 

END 
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